Public Class FormAddHoliday

    Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click

        Try
            If TxtHolidayName.Text = "" Then
                TxtHolidayName.Focus()
                lblsms.ForeColor = Color.Red
                lblsms.Text = "Please input your holiday name into textbox"

                Exit Sub

            End If
            Cmd.ExecuteNonquery("INSERT INTO TBL_HOLIDAY (DATE,DESCRIPTION,ACTIVE) VALUES('" & DateTimeHoliday.Text & "','" & TxtHolidayName.Text & "',1)")
            Me.Hide()
            FormMain.loadholiday()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub FormAddHoliday_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class